#!/usr/bin/perl
# array length
@arr= ("one", "two", "three") ;
print scalar @arr;
print"\n";
$arr[3] = 1;
print scalar @arr;
# lay ve chi so cao nhat cua mang
print"\n";
print $#arr;

print"\n";
print shift @arr;
print"\n";
print scalar @arr;

print"\n";
print pop @arr;
print"\n";
print scalar @arr;

print"\n";
push @arr, "by push";
print scalar @arr;
print"\n";
#print $arr[199];

print"\n";
unshift @arr, "by unshift";
print scalar @arr;
print"\n";
print $arr[0];

# chu y arr[10] gia su chua duoc khoi tao truy cap vao se loi
print join ",", @arr;

